home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / disk / misc / Zip4mat.lha / Zip4mat / FormatZFS < prev    next >
Text File  |  1999-03-19  |  370b  |  12 lines
  1. requestchoice >env:FM "" "Are you sure you want to format this ZIP disk..? " Yes No
  2. if val $FM eq 1
  3.    rdprepx -u 5 -r ZIP_sfs.list -q1 -t -d 1230scsi.device
  4.    mount >nil: ZIP: from ZIP_sfs.list
  5.    MFORMAT DRIVE ZIP:
  6.    COPY ZIP_icon zip:disk.info
  7.    echo "*N Please enter your disk label."
  8.    relabel >nil: zip: ?
  9.    ziptool >nil: zip: eject
  10. endif
  11. delete >nil: env:fm
  12.